home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / FAX_SSTV / VESTER_M / RT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-08-14  |  33.4 KB  |  718 lines
  1. 5  CLEAR:DEF SEG:BLOAD"chekmem.asm",&H100:K=&H100:CALL K(W%)
  2. 6  A=16*W%+66048:B=A-319400
  3. 10  IF B>0 THEN CLS:PRINT"---Not enough low memory. Unload TSR programs of >";B;"bytes total":KEY 10,"system"+CHR$(13):PRINT:PRINT"   F10 to DOS":END
  4. 20  CLEAR,49152:KEY OFF:A=0:B=0:H=0:M=0:D=0:Z=0
  5. 22  COLOR 7,9,4:CLS
  6. 29  OUT &H3FC,0:OUT &H2FC,0
  7. 30  GOTO 3000
  8. 40  KEY 8,"98"+CHR$(13):KEY 7,"97"+CHR$(13):KEY 9,"222"+CHR$(13):KEY 10,"666"+CHR$(13):KEY 5,"888"+CHR$(13)
  9. 41  KEY 1,"111"+CHR$(13):KEY 6,"333"+CHR$(13):KEY 4,"SAVE"+CHR$(34)+"RT"
  10. 51  IF MP=1 AND TC=1 THEN DEF SEG=&H4F00:BLOAD "trushof.asm",&H100:PRINT:PRINT:PRINT:PRINT:PRINT
  11. 52  IF MP=1 AND TC=1 THEN POKE &H1A3,144:POKE &H1A4,144:POKE &H1BA,235:POKE &H1BB,228:PRINT:PRINT:PRINT:PRINT:PRINT:GOTO 4040
  12. 55  IF MP=1 THEN DEF SEG=&H4F00:BLOAD "vu64ba.asm",&H100
  13. 56  IF MP=1 THEN POKE &H1A3,144:POKE &H1A4,144:POKE &H1BA,235:POKE &H1BB,228:PRINT:PRINT:PRINT:GOTO 1340
  14. 60  PRINT"                   Copyrights 1993,1994,1995 Ben Vester                        "
  15. 61  PRINT"                  K3BC TRUSCAN SSTV/WEFAX FOR IBM CLONES                    "
  16. 68  IF MP=3 THEN PRINT:PRINT:PRINT:PRINT:PRINT:GOTO 230
  17. 69  PRINT"   This program copies most SSTV and WEFAX formats in real time using either"
  18. 80  PRINT"Trucolor or 256 color video boards. For Wefax and Colorfax operation it"
  19. 90  PRINT"optimally has a RAMDRIVE, created with enough capacity for Wefax file sizes."
  20. 100  PRINT"After copying halts, pix can be scrolled using arrows for small moves and keys"
  21. 110  PRINT"R, L, and D for larger. When satisfied with pix, you can SAVE it, Re-Transmit"
  22. 120  PRINT"it or hit ENTER to copy another pix. The program SAVE's the pix with a suffix"
  23. 130  PRINT"which indicates what mode it was copied under: ie; .S1, .90, .M1, etc. Hit"
  24. 140  PRINT"any key to bypass the SYNC process if you are late in selecting mode. If pix"
  25. 150  PRINT"was not synced, it can be scrolled to correct position and color registration."
  26. 160  PRINT"Wefax configured for USB receiving. Program requires as minimum a SVGA card"
  27. 170  PRINT"with 640x480x256. While copying, H will halt or T will jump to a tuning screen"
  28. 180  PRINT"snapshot. Q will exit any screen pix. C and X adjusts color registration for"
  29. 190  PRINT"modes 3 thru 8. Robot color registration is adjusted by horizontal scrolling"
  30. 200  PRINT"and F and G adjust the color hue by retuning (after the fact). Alignment for"
  31. 210  PRINT"ALL MODES is done by using the '/' (lean right) and '\' (lean left) keys while"
  32. 220  PRINT"copying a Scottie 1 pix. While viewing received pix, F4 will Quick-Save pix"
  33. 221  PRINT"and F9 will slide pix to left and bring up the Transmit screen (if using TVT)."
  34. 222  PRINT"To view RT's SYS CONFIG list hit F5 twice now."
  35. 230  IF VC=0 THEN Z=1
  36. 240  IF VC=1 THEN Z=0
  37. 250  C%=256:D%=256:B=256:GOTO 470
  38. 260  IF CO=2 THEN POKE &H3C0,2:POKE &H1D8,2:POKE &H1E5,2
  39. 261  IF TI=0 THEN POKE 467,1
  40. 262  POKE &H3E3,SW    'SYNC window
  41. 263  POKE &H19C,0:POKE &H19D,8       'Wx SYNC freq count
  42. 264  POKE &H3C3,PN     'puts + voltage on either or both RTS and DTR
  43. 270  PRINT:PRINT:INPUT"      Do you want to copy now or later?(N or L--Default=N)";X$
  44. 280  IF X$="n" GOTO 360
  45. 290  IF X$="" GOTO 360
  46. 300  IF X$="l" GOTO 320
  47. 310  GOTO 270
  48. 320  PRINT:PRINT"      Now to choose your starting time----":PRINT
  49. 330  PRINT:INPUT"  What HOUR would you like to start?";H
  50. 340  A=1
  51. 350  INPUT"           and MINUTES after the hour?";M
  52. 360  T=0
  53. 370  PRINT:INPUT"..MINUTES of copy time  (Default=14 Min.)";T
  54. 380  IF T=0 THEN T=14
  55. 390  B%=H
  56. 400  A%=M*256:D%=T*120
  57. 410  PRINT:INPUT"     Do you want AUTO-SYNCHRONIZING (Y or N--Default=N)";S$
  58. 420  IF S$="" THEN S$="n"
  59. 430  IF S$="n" THEN B=0:GOTO 460
  60. 435  IF S$="666" THEN COLOR 7,0,0:CLS: SYSTEM
  61. 440  IF S$="Y" THEN B=256
  62. 450  IF S$="y" THEN B=256
  63. 460  C%=A+B:GOTO 790
  64. 470  DEF SEG=&H4E00
  65. 471  BLOAD "pixoff.asm",&H100
  66. 472  DEF SEG=&H6F00
  67. 473  BLOAD "stowxf.asm",&H100:POKE &H175,GT99:POKE &H3C3,PN
  68. 474  DEF SEG=&H4F00
  69. 475  BLOAD "stotvgn.asm",&H100:POKE &H175,GT:POKE &H430,BS:POKE &H1B9,170
  70. 477  IF TI=0 THEN POKE 467,1
  71. 478  POKE &H3E4,SW    'SYNC window
  72. 480  POKE &H796,0   'Freq. calibration for tune display
  73. 481  POKE &H3EC,35   'lowers threshold for vis barrier in manual
  74. 484  IF RC=1 THEN POKE &H2B2,235:POKE &H2B3,5:POKE &H473,209:POKE &H474,224
  75. 485  POKE &H3C6,PN:POKE &H4E5,IO
  76. 486  POKE &H6CD,132:POKE &H6D1,132:POKE &H6D3,132   'pix brightness=132---larger=whiter
  77. 490  IF CO=2 THEN POKE &H121,11:POKE &H411,11:POKE &H3C0,2:POKE &H4F9,2:POKE &H503,2:POKE &H50C,2:POKE &HAAC,11:POKE &H3A5,2:POKE &H2AD,2:POKE &H515,247
  78. 530  O=1
  79. 540  IF AS=1 THEN GOTO 2600
  80. 542  IF AS=2 THEN CLS:GOTO 572
  81. 545  IF MPL=1 THEN GOTO 570
  82. 550  PRINT:PRINT"   What Mode (1)or(11)36sec (2)or(22)72sec (3)Scot1 (4)Scot2 (5)AVT90 (6)AVT94"
  83. 560  PRINT"(66)AVT188 (7)Martin1 (77)Martin2 (8)Wraase96 (9)FAX480 (96)ColorFAX (99)Wefax "
  84. 565  INPUT"--F8=AUTOVIS---F7=AUTO+SAVE---F5=SYS CONFIG---F10=DOS---F9=TRANSMIT--";I
  85. 570  IF I=0 THEN GOTO 550
  86. 571  IF I=97 THEN AS=1:N=96:KEY 1,"LIST ":GOTO 2670
  87. 572  IF I=98 THEN AS=2:PRINT:PRINT:PRINT"   VIS Enabled":PRINT:PRINT"  F10=DOS  F9=TXMIT  F5=SYS CONFIG":GOTO 2600
  88. 575  IF I=99 THEN BLOAD "stowxf.asm",&H100:POKE &H175,GT99:GOTO 260
  89. 580  IF I=1 THEN LL=306:FS=1:D%=240:LT=LT1:RE=0:GOTO 730
  90. 585  IF I=96 AND RE=0 THEN DEF SEG=&H6F00:LL=546:FS=1:D%=1440:LT=LT9:POKE &H175,GT96:GOTO 711
  91. 586  IF I=96 AND RE=1 THEN L=536:LL=546:FS=1:D%=1440:LT=LT9:POKE &H175,GT96:GOTO 730
  92. 590  IF I=11 THEN LL=288:FS=1:D%=240:LT=LT1:RE=0:GOTO 720
  93. 591  IF I=666 THEN COLOR 7,0,0:CLS:SYSTEM
  94. 592  IF I=222 THEN LOAD TX$,R
  95. 593  IF I=888 THEN COLOR 7,0,0:CLS:PRINT:PRINT"   F10=DOS--F2=ReRUN--F5=SYS CONFIG":KEY 10,"system"+CHR$(13):KEY 1,"LIST ":KEY 5,"LIST 3000-3300"+CHR$(13):END
  96. 600  IF I=2 THEN LL=614:FS=1:D%=240:LT=LT2:RE=0:GOTO 730
  97. 610  IF I=22 THEN LL=597:FS=1:D%=240:LT=LT2:RE=0:GOTO 720
  98. 620  IF I=3 THEN LL=878:FS=1:D%=255:LT=LT3:L=287:GOTO 730
  99. 640  IF I=4 THEN LL=568:FS=1:D%=255:LT=LT4:L=184:GOTO 730
  100. 650  IF I=5 THEN LL=768:FS=0:D%=240:LT=LT5:L=256:GOTO 723
  101. 660  IF I=9 THEN LL=546:FS=1:D%=480:LT=LT9:L=536:GOTO 730
  102. 670  IF I=6 THEN LL=960:FS=0:D%=200:LT=LT6:L=320:GOTO 724
  103. 680  IF I=66 THEN LL=960:FS=0:D%=284:LT=LT6:L=320:GOTO 724
  104. 690  IF I=7 THEN LL=915:FS=1:D%=255:LT=LT7:L=302:GOTO 730
  105. 695  IF I=77 THEN LL=464:FS=1:D%=255:LT=LT77:L=152:GOTO 730
  106. 700  IF I=8 THEN LL=745:FS=0:D%=255:LT=LT8:L=248:GOTO 715
  107. 701  IF I=111 THEN MPL=0:KEY 1,"LIST ":COLOR 7,9,4:CLS:GOTO 60
  108. 710  GOTO 550
  109. 711  POKE &H136,32:POKE &H3E3,SW:POKE &H18F,48:POKE &H190,0:POKE &H19C,82:POKE &H19D,9:POKE &H1A1,170:POKE &H1A2,6:POKE &H1B9,54:POKE &H1BA,6
  110. 712  IF CO=2 THEN POKE &H3C0,2:POKE &H2AD,2:POKE &H1E5,2
  111. 713  IF TI=0 THEN POKE 467,1
  112. 714  POKE &H3EC,45:POKE &H3ED,0:POKE &H3F0,235:POKE &H3F1,4:GOTO 730
  113. 715  POKE &H1C5,232:POKE &H1C6,160:POKE &H1C7,4:POKE &H669,253:GOTO 730
  114. 720  POKE &H264,235:POKE &H265,100:GOTO 730
  115. 723  POKE &H63F,65:POKE &H640,190:POKE &H669,47 'poke to 669 adjusts avt90 start
  116. 724  IF AS=1 AND SY$="y" THEN D%=D%+16
  117. 725  POKE &H1C5,232:POKE &H1C6,0:POKE &H1C7,4
  118. 726  IF AS=1 AND I=6 AND SY$="y" THEN POKE &H1C6,160:POKE &H669,108:POKE &H66A,1 'bypass AVT frame SYNC to avoid weak signal hangup in mode 97
  119. 727  IF AS=1 AND I=5 AND SY$="y" THEN POKE &H1C6,160:POKE &H669,174:POKE &H66A,0 'bypass AVT frame sync-&h669 and 66a are LSB/MSB for pixel delay b4 start pix in mode 97
  120. 730  LLB=INT(LL/256):LLA=LL-256*LLB         'LL=bytes per line for mode
  121. 735  KEY 10,"system"+CHR$(13)
  122. 740  LTB=INT(LT/256):LTA=LT-256*LTB         'line timing per lines 3000-5000
  123. 750  POKE &H25F,LTA:POKE &H260,LTB
  124. 760  POKE &H21D,LLA:POKE &H21E,LLB:POKE &H388,LLA:POKE &H389,LLB
  125. 765  IF I=96 THEN POKE &H182,37:POKE &H183,2:POKE &H350,140:POKE &H351,216:POKE &H3B7,176:POKE &H3B8,0:POKE &H3B9,162:POKE &H3BA,45:POKE &H3BB,0
  126. 766  IF I=96 AND RE=1 THEN POKE &H6FC,195:POKE &H71E,195
  127. 770  IF FS=1 THEN POKE &H1C5,232:POKE &H1C6,211:POKE &H1C7,3:GOTO 2500 'FS=frame sync
  128. 775  IF RE=0 THEN POKE &H69F,184:POKE &H6A0,3:POKE &H6A1,10:POKE &H6A2,187:POKE &H6A3,4:POKE &H6A4,0:POKE &H6A5,185:POKE &H6A6,1
  129. 776  IF RE=0 THEN POKE &H6A7,0:POKE &H6A8,205:POKE &H6A9,16:POKE &H6AA,195:POKE &H679,235:POKE &H67A,36:POKE &H15A,18
  130. 777  'Remove apostrophe in 775 and 776 to add visual cue at ticking time-may delay pix start-add apostrophes after 775 and 776 line no. to delete cue
  131. 780  GOTO 810
  132. 790  POKE &H25F,L99A:POKE &H260,L99B
  133. 792  POKE &H7F0,ASC(DR$)  'DR$ is designated in the line 3050 (SYSTEM LIST)
  134. 795  IF RE=1 THEN POKE &H227,235:POKE &H228,82:POKE &H43E,BS
  135. 796  IF RE=1 AND VC=7 THEN POKE &H157,233:POKE &H158,63:POKE &H159,1
  136. 800  GOTO 820
  137. 810  POKE &HC20,ASC(DR$)  'DR$ is designated in the line 3050 (SYSTEM LIST)
  138. 811  IF RE=1 AND VC=7 THEN POKE &H158,233:POKE &H159,237:POKE &H15A,2
  139. 812  IF VC=4 AND TC>0 THEN POKE &H15A,&H72
  140. 813  IF I=9 THEN POKE &H158,233:POKE &H159,237:POKE &H15A,2:GOTO 815
  141. 814  IF BP=2 AND TC>0 THEN POKE &H6DC,232:POKE &H6DD,145:POKE &H6DE,4:POKE &H6DF,235:POKE &H6E0,13:POKE &H709,233:POKE &H70A,244:POKE &H70B,3:GOTO 1766
  142. 815  POKE &H6F0,BP:POKE &H6F3,BP
  143. 820  IF I=99 THEN GOTO 868
  144. 830  IF RE=0 THEN GOTO 880
  145. 840  QB=BP*INT((640-L)/2)+2:QC=(BP*L)+1:QD=BL+3
  146. 841  IF BP=2 THEN QC=BP*L:QD=BL:QB=BP*(640-L)/2:GOTO 843
  147. 842  IF I=7 OR I=77 THEN QB=BP*(640-L)/2+1
  148. 843  IF I=9 THEN QD=640-L:QB=52:POKE &H6AF,1:POKE &H6F0,1:POKE &H6F3,1:POKE &H6FC,235:POKE &H6FD,11:POKE &H44F,225:POKE &H450,2
  149. 844  QB2=INT(QB/256):QB1=QB-256*QB2:POKE &H26B,QB1:POKE &H26C,QB2
  150. 845  QC2=INT(QC/256):QC1=QC-256*QC2:POKE &H6FE,QC1:POKE &H6FF,QC2:POKE &H707,QC1:POKE &H708,QC2:POKE &H749,QC1:POKE &H74A,QC2:POKE &H752,QC1:POKE &H753,QC2
  151. 846  QD2=INT(QD/256):QD1=QD-256*QD2:POKE &H720,QD1:POKE &H721,QD2:POKE &H724,QD1:POKE &H725,QD2:POKE &H764,QD1:POKE &H765,QD2:POKE &H768,QD1:POKE &H769,QD2
  152. 847  IF I=5 OR I=6 OR I=66 THEN POKE &H70C,235:POKE &H70D,16:GOTO 851
  153. 848  IF I=9 THEN POKE &H70D,10:POKE &H722,235:POKE &H723,7:POKE &H6DC,235:POKE &H6DD,2:POKE &H449,1:GOTO 851
  154. 849  IF I=96 THEN GOTO 851
  155. 850  DD=LL-3*L:POKE &H70D,DD
  156. 851  LB=INT(L/256):LA=L-256*LB:POKE &H6B3,LA:POKE &H6B4,LB
  157. 852  IF RE=1 AND I=96 THEN POKE &H246,247:POKE &H247,4:POKE &H70D,10
  158. 854  POKE &HAB5,QC1:POKE &HAB6,QC2:POKE &HABE,QC1:POKE &HABF,QC2
  159. 855  QE=BP*L-2:QE2=INT(QE/256):QE1=QE-256*QE2:POKE &HAC5,QE1:POKE &HAC6,QE2:POKE &HACE,QE1:POKE &HACF,QE2
  160. 856  QF=(BL-BP*L)-1:QF2=INT(QF/256):QF1=QF-256*QF2:POKE &HAD8,QF1:POKE &HAD9,QF2:POKE &HADC,QF1:POKE &HADD,QF2
  161. 857  IF BP=2 AND TC>0 THEN GOTO 867
  162. 858  IF I=7 OR I=77 THEN POKE &H6FC,195:POKE &H71E,195::POKE &H246,104:POKE &H247,8:POKE &H669,4   '&h669 poke makes DE=4 for these two modes
  163. 867  IF I<99 THEN GOTO 878
  164. 868  CLS:PRINT"   If FAX audio is present and you chose to copy NOW, press 'G' to start."
  165. 869  PRINT"You can Halt copying at any time by hitting H. If you chose AUTO-SYNC  and"
  166. 870  PRINT"the SYNC sigs don't occur, hit SPACEBAR to bypass AUTO-SYNC. If you are copy-"
  167. 871  PRINT"ing a map and want to print it, scroll over the map to put the upper left"
  168. 872  PRINT"corner of the screen where you want the print to start and lightly hit P to"
  169. 873  PRINT"print the map. Hit H to halt printing. Photo's will not print in shades of"
  170. 874  PRINT"gray. After you finish viewing hit Q or V to return to BASIC.":GOTO 880
  171. 878  IF TC=0 AND RE=1 THEN GOTO 2820
  172. 879  IF RE=1 THEN POKE &H1E1,99
  173. 880  K=&H100:CALL K(A%,B%,C%,D%)
  174. 881  IF I=22 OR I=2 OR I=11 OR I=1 THEN RE=1
  175. 885  OUT &H3FC,0:OUT &H2FC,0
  176. 886  V=INP(&H21)
  177. 887  IF CO=2 THEN XX=V OR 8:GOTO 889
  178. 888  XX=V OR 16
  179. 889  OUT (&H21),XX
  180. 890  KEY OFF:CLS
  181. 900  X$="system"+CHR$(13):KEY 10,X$
  182. 905  DEF SEG=&H4D00:POKE &HFFF,I
  183. 910  DEF SEG=&H4F00
  184. 920  IF I=99 THEN BLOAD "vuwx.asm",&H100:GOTO 940
  185. 930  BLOAD "vu64ba.asm",&H100
  186. 940  IF I=99 THEN GOTO 1190
  187. 950  IF I=9 THEN GOTO 1700
  188. 960  IF I=2 THEN GOTO 1360
  189. 970  IF I=22 THEN GOTO 1360
  190. 980  IF I=1 THEN GOTO 1730
  191. 990  IF I=11 THEN GOTO 1730
  192. 991  IF TC>0 OR BP=2 THEN GOTO 4000
  193. 1000  IF I=3 THEN L=288
  194. 1010  IF I=4 THEN L=184
  195. 1020  IF I=5 THEN L=256
  196. 1030  IF I=6 THEN L=320
  197. 1040  IF I=8 THEN L=248
  198. 1050  IF I=66 THEN L=320
  199. 1055  IF I=96 THEN L=546:LL=1638:P=528:GOTO 2700
  200. 1060  IF I=7 THEN GOTO 1340
  201. 1065  IF I=77 THEN GOTO 1340
  202. 1070  P=L:P2=INT(P/256):P1=P-P2*256
  203. 1080  POKE &H15D,P1:POKE &H15E,P2
  204. 1090  IF I=4 THEN POKE &H3EA,16:LL=568
  205. 1100  IF I=8 THEN POKE &H3EA,1:LL=745
  206. 1110  IF I=7 THEN POKE &H3EA,9:LL=915
  207. 1115  IF I=77 THEN POKE &H3EA,8:LL=464
  208. 1120  IF I=5 THEN POKE &H3EA,0:LL=768
  209. 1130  IF I=6 THEN POKE &H3EA,0:LL=960
  210. 1140  IF I=66 THEN POKE &H3EA,0:LL=960
  211. 1150  IF I=3 THEN POKE &H3EA,14:LL=878
  212. 1160  OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  213. 1170  LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2
  214. 1180  POKE &H226,3  'number poked is pixels scrolled per left arrow depressions
  215. 1190  IF VC=1 THEN GOTO 1761
  216. 1200  IF VC=2 THEN GOTO 1260
  217. 1210  IF VC=3 THEN GOTO 1770
  218. 1220  IF VC=4 THEN GOTO 1830
  219. 1230  IF VC=5 THEN GOTO 1890
  220. 1240  IF VC=6 THEN GOTO 1940
  221. 1250  IF VC=7 THEN GOTO 2010
  222. 1260  POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195
  223. 1270  IF I=99 THEN POKE &H113,56
  224. 1280  A$=DR$+":a.p":K=&H100
  225. 1281  IF I=99 THEN CALL K(C%,S%,A$):GOTO 1290
  226. 1282  IF AS=1 THEN POKE &H1BA,235:POKE &H1BB,228:POKE &H1A3,144:POKE &H1A4,144
  227. 1283  IF MP=1 THEN A$=MP$
  228. 1284  CALL K(S%,A$)
  229. 1285  IF TC>0 AND I=3 OR I=4 THEN S%=S%-L
  230. 1286  GOTO 1333
  231. 1287  IF MP=1 THEN GOTO 1351
  232. 1288  IF AS=1 THEN GOTO 1440
  233. 1289  IF I=3 THEN GOTO 1431
  234. 1290  PRINT:PRINT:PRINT"     F5=SYS CONFIG/BASIC     F10=DOS     F6=Receive     F9=Txmit new pix"
  235. 1291  INPUT"S=Save  RT=Re-Txmit  RTR=Re-Txmit another Mode  T=Tune display (Default=F6)";TR$
  236. 1294  IF TR$="" AND AS=2 THEN I=98:GOTO 474
  237. 1295  IF TR$="" THEN TR$="333"
  238. 1300  IF TR$="s" THEN GOTO 1440
  239. 1305  IF TR$="rt" THEN GOTO 2060
  240. 1306  IF TR$="rtr" THEN GOTO 4600
  241. 1307  IF TR$="t" THEN GOTO 2800
  242. 1310  IF TR$="222" THEN LOAD TX$,R
  243. 1315  IF TR$="333" THEN LOAD "rt.bas",R
  244. 1320  IF TR$="888" THEN COLOR 7,0,0:CLS:GOTO 1330
  245. 1322  IF TR$="system" THEN COLOR 7,0,0:CLS:SYSTEM
  246. 1325  GOTO 1290
  247. 1330  PRINT:PRINT:PRINT:PRINT:PRINT" F2 for NEW PIX---F10 to DOS---F5 to SYS CONFIG---type GOTO 1290 to re-select":KEY 10,"system"+CHR$(13):KEY 1,"LIST "
  248. 1331  KEY 5,"LIST 3000-3300"+CHR$(13):END
  249. 1333  ZK=PEEK(&H6DD):ZQ=PEEK(&H32D)
  250. 1334  IF S%<0 THEN S!=65536+S% ELSE S!=S%
  251. 1335  S2=INT(S!/256):S1=S!-256*S2:DEF SEG=&H40:POKE &HFD,S1:POKE &HFE,S2:POKE &HFF,I:DEF SEG=&H4F00
  252. 1336  IF ZK=255 OR ZQ=118 THEN GOTO 3500
  253. 1337  GOTO 1287
  254. 1340  POKE &H180,128:POKE &H3DA,128:POKE &H3CB,64:POKE &H3BC,192
  255. 1345  IF I=77 THEN L=152:GOTO 1070
  256. 1350  L=302:GOTO 1070
  257. 1351  MP=0:BLOAD "selectmo.asm",&H100
  258. 1352  POKE &H196,18  'No. poked is delay allowed  for 2nd character to be keyed in menu selection (18=1 sec)
  259. 1353  K=&H100:CALL K(H%)
  260. 1354  I=H%:MPL=1:KEY 1,"LIST ":GOTO 230
  261. 1355  S2=INT(S%/256):S1=S%-256*S2:POKE &H6DA,S1:POKE &H6DB,S2:POKE &H6DC,I
  262. 1356  LOAD TX$,R
  263. 1360  L=282
  264. 1370  BLOAD "vurobol.asm",&H100
  265. 1371  POKE &H4BD,10:POKE &H350,10   'initial color offset--Robot 72
  266. 1372  IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  267. 1373  IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  268. 1375  POKE &H1AE,16
  269. 1380  OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  270. 1390   IF I=22 THEN GOTO 1410
  271. 1400  POKE &H226,1:POKE &H1FD,102:POKE &H242,102:LL1=102:LL2=2:POKE &H15D,102:GOTO 1190
  272. 1410  POKE &H226,1:POKE &H1FD,85:POKE &H242,85
  273. 1420  POKE &H15D,85:LL1=85:LL2=2
  274. 1430  GOTO 1190
  275. 1431  IF C%<0 THEN C!=65536+C%
  276. 1432  CLT=C!-LT3
  277. 1433  IF CLT=0 THEN GOTO 1290
  278. 1434  PRINT:PRINT:PRINT:PRINT"   During this pix you changed Line Timing (LT3) to:":PRINT"      LT3=";C!
  279. 1435  PRINT"   Hit F5 if you want to permanently change LT3. Change line 3100, then hit"
  280. 1436  PRINT"   F5 to recheck your entry. To SAVE, hit F4. Otherwise hit F2 for a new pix.":KEY 5, "LIST 3100"+CHR$(13)
  281. 1437  PRINT"      To get to the selection screen, type-- GOTO 1290":END
  282. 1440  DEF SEG=&H4F00
  283. 1441  IF AS=1 THEN F$="n":GOTO 1450
  284. 1442  PRINT:PRINT:INPUT"    Save it in compressed format--y or n";F$
  285. 1443  IF F$="n" THEN GOTO 1450
  286. 1444  IF F$="y" THEN GOTO 1450
  287. 1445  GOTO 1442
  288. 1450  BLOAD "savepix.asm",&H100
  289. 1455  POKE &H126,32:POKE &H14B,32
  290. 1460  OF$=DR$+":a.p"
  291. 1470  PI=512:PO=512:K%=0:L%=0
  292. 1475  IF I=99 THEN POKE &H20D,255:POKE &H193,4:POKE &H1BA,4:POKE &H166,C%:GOTO 2520
  293. 1480  POKE &H192,LL1:POKE &H193,LL2:POKE &H1B9,LL1:POKE &H1BA,LL2
  294. 1485  BY=3*L-1:BYB=INT(BY/256):BYA=BY-256*BYB:POKE &H20D,BYA:POKE &H20E,BYB
  295. 1490  IF S%<0 THEN S!=65536+S% ELSE S!=S%
  296. 1495  S2=INT(S!/256):S1=S!-256*S2:POKE &H163,S1:POKE &H164,S2
  297. 1496  IF ZQ=118 THEN GOTO 1530
  298. 1499  IF AS=1 THEN N=N+1:PIX$=SP$+CHR$(N):GOTO 1530
  299. 1500  PRINT:PRINT:PRINT"   The program will add an appropiate Mode suffix.":PRINT
  300. 1510  IF F$="y" THEN INPUT"       What Name  for Picture (Default is DO NOT SAVE)";PIX$
  301. 1515  IF F$="n" THEN INPUT" What Path\Name for Full Format Pix (Default is DO NOT SAVE)";PIX$
  302. 1520  IF PIX$="" THEN GOTO 1290
  303. 1530  IF I=1 THEN MO$=".36":LE%=200
  304. 1540  IF I=11 THEN MO$=".36a":LE%=200
  305. 1550  IF I=2 THEN MO$=".72":LE%=300
  306. 1560  IF I=22 THEN MO$=".72a":LE%=300
  307. 1570  IF I=3 THEN MO$=".s1":LE%=410
  308. 1580  IF I=4 THEN MO$=".s2":LE%=300
  309. 1590  IF I=5 THEN MO$=".90":LE%=360
  310. 1600  IF I=66 THEN MO$=".188":LE%=640
  311. 1610  IF I=6 THEN MO$=".94":LE%=450
  312. 1620  IF I=9 THEN MO$=".fax":LE%=480
  313. 1625  IF I=96 THEN MO$=".cfx":LE%=1440
  314. 1630  IF I=99 THEN MO$=".wx"
  315. 1640  IF I=7 THEN MO$=".m1":LE%=420
  316. 1645  IF I=77 THEN MO$=".m2":LE%=300
  317. 1650  IF I=8 THEN MO$=".96":LE%=300
  318. 1660  L2=INT(LE%/256):L1=LE%-256*L2:POKE &H18B,L1:POKE &H18C,L2
  319. 1670  NF$=PIX$+MO$
  320. 1671  IF F$="y" THEN NF$=DR$+":"+NF$
  321. 1680  K=&H100:CALL K(K%,L%,OF$,NF$)
  322. 1681  IF AS=1 THEN I=98:I%=0:GOTO 250
  323. 1682  IF F$="n" THEN GOTO 1692
  324. 1683  IF F$="y" THEN PRINT:PRINT:INPUT"    What Path/Directory for Compressed file";X$
  325. 1684  IF X$="" THEN GOTO 1683
  326. 1685  SHELL "pk "+X$+" "+DR$+":"+" "+PIX$+" "+MO$
  327. 1690  CLS:GOTO 1290
  328. 1692  IF ZQ=118 THEN GOTO 3520 ELSE GOTO 1290
  329. 1700  POKE &H15D,16:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:LL=546:L=179
  330. 1710  POKE &H3A9,57:POKE &H3EA,18:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,47:POKE &H13C,0
  331. 1720  POKE &H16A,128:POKE &H16B,2:GOTO 1170
  332. 1730  BLOAD "vuro36l.asm",&H100
  333. 1731  POKE &H4BD,8:POKE &H350,8   'initial color offset Robot 36
  334. 1732  IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  335. 1733  IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  336. 1734  POKE &H1AE,16
  337. 1740  L=141:LL=612:POKE &H13B,140:POKE &H15D,100:POKE &H226,1:POKE &H1F2,12
  338. 1750  IF I=11 THEN LL=576:POKE &H15D,64:POKE &H3BB,64:POKE &H3EF,0:POKE &H4A8,0:POKE &H441,0:POKE &H2F6,32:POKE &H303,32
  339. 1760  GOTO 1170
  340. 1761  IF I=6 THEN POKE &H113,&H5C
  341. 1762  GOTO 1280
  342. 1766  IF I=96 THEN POKE &H6FC,235:POKE &H6FD,48:POKE &HB98,195:POKE &H38B,128:POKE &H38C,4:GOTO 1768
  343. 1767  IF I=7 OR I=77 THEN POKE &H6DD,110:POKE &HB16,145:POKE &HB24,110:POKE &HB07,86:POKE &HB7E,235:POKE &HB7F,7:POKE &H669,4:GOTO 1769 '669 poke is DE=4 for Martin
  344. 1768  POKE &HB3F,235:POKE &HB40,70
  345. 1769  POKE &H449,17:POKE &H246,173:POKE &H247,8:POKE &H163,72:POKE &H353,72:GOTO 815
  346. 1770  POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90  'ATI video mode 62
  347. 1780  POKE 324,136:POKE 325,196
  348. 1790  POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8
  349. 1800  POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195
  350. 1810  IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE 321,233:POKE 322,66:POKE 323,4:POKE &H58A,192
  351. 1815  IF I=6 THEN POKE &H113,&H61
  352. 1820  GOTO 1280
  353. 1830  POKE &H113,&H5F:POKE 321,186:POKE 322,206          'Paradise video mode 5f
  354. 1840  POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208
  355. 1850  POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228
  356. 1860  POKE 336,239:POKE 337,195
  357. 1870  IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  358. 1875  'IF I=6 THEN POKE &H113,&H5E
  359. 1880  GOTO 1280
  360. 1890  POKE &H113,&H79:POKE 321,186:POKE 322,214            'Chips & Tech Mode 79
  361. 1900  POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,177
  362. 1910  POKE 329,BS:POKE 330,210:POKE 331,228:POKE 332,239:POKE 333,195
  363. 1920  IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  364. 1925  IF I=6 THEN POKE &H113,&H78
  365. 1930  GOTO 1280
  366. 1940  POKE &H113,&H5C:POKE 321,186:POKE 322,196                   'Genoa mode 5c
  367. 1950  POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236
  368. 1960  POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208
  369. 1970  POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8
  370. 1980  POKE 341,216:POKE 342,238:POKE 343,195
  371. 1990  IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  372. 1995  IF I=6 THEN POKE &H113,&H7E
  373. 2000  GOTO 1280
  374. 2010  POKE &H111,79:POKE &H113,2:POKE 321,177                   'VESA mode 101
  375. 2020  POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218
  376. 2030  POKE 327,48:POKE 328,246:POKE 329,184:POKE 330,5:POKE 331,79:POKE 332,49:POKE 333,219:POKE 334,205
  377. 2031  POKE 335,16:POKE 336,195
  378. 2035  IF I=99 AND SI=1 THEN POKE &H44A,5:GOTO 2045
  379. 2040  IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  380. 2045  'IF I=6 THEN POKE &H398,0
  381. 2050  GOTO 1280
  382. 2060  DEF SEG=&H4F00
  383. 2070  BLOAD "tx64gm.asm",&H100
  384. 2074  POKE &H3FD,4:POKE &H401,237 'affects space between initial VIS and pix bytes
  385. 2075  POKE &H46D,136:POKE &H464,204 'vary &h464 poke to tune fax480 244 cps. Use same number as line 3015 in VT.BAS
  386. 2078  IF I=96 THEN PRINT:PRINT"  ColorFAX retransmit not supported to avoid too much airtime on a single pix!":GOTO 1290
  387. 2079  IF I=99 THEN PRINT:PRINT"  Wefax transmission only available if SAVEd as a FAX480 file-then use VT.BAS.":GOTO 1290
  388. 2080  IF I=1 THEN LL=306:LT=LT1:LD=282:EA=24:SC=24:POKE &H1D8,240:POKE &H1D9,0:POKE &H3A5,17:GOTO 2200
  389. 2090  IF I=2 THEN LL=614:LT=LT2:L=282:LD=589:EA=25:SC=24:POKE &H1D8,240:POKE &H1D9,0:POKE &H3A5,48:GOTO 2200
  390. 2093  IF I=5 OR I=6 OR I=9 OR I=11 OR I=22 THEN GOTO 2100
  391. 2094  PRINT:PRINT:PRINT:INPUT"  Type Message for Header (Default=standard CS$)";ZC$
  392. 2095  IF ZC$="" THEN GOTO 2100
  393. 2096  CS$=ZC$
  394. 2100  IF I=3 THEN LL=878:LT=LT3:L=288:EA=14:SC=14:POKE &H3A5,60:POKE &H523,96:POKE &H510,3:POKE &H52B,227:POKE &H373,233:POKE &H374,39:POKE &H375,1:GOTO 2210
  395. 2110  IF I=4 THEN LL=568:LT=LT4:L=184:EA=16:SC=15:POKE &H3A5,29:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H523,41:POKE &H510,2:POKE &H52B,227:GOTO 2210
  396. 2115  IF I=8 THEN LL=745:LT=LT8:L=248:EA=1:SC=1:POKE &H3A5,57:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H523,233:POKE &H510,2:POKE &H564,12:POKE &H52B,227:GOTO 2210
  397. 2120  IF I=5 THEN LL=768:LT=LT5:SC=21:POKE &H30F,235:POKE &H1D8,255:POKE &H1D9,0:POKE &H3F8,0:POKE &H3A5,34:POKE &H529,63:GOTO 2180
  398. 2130  IF I=7 THEN LL=915:LT=LT7:L=302:EA=9:SC=8:POKE &H3A5,53:POKE &H373,233:POKE &H374,39:POKE &H375,1:GOTO 2210
  399. 2135  IF I=77 THEN LL=464:LT=LT77:L=152:EA=8:SC=8:POKE &H3A5,20:POKE &H373,233:POKE &H374,39:POKE &H375,1:GOTO 2210
  400. 2140  IF I=6 THEN LL=960:LT=LT6:L=320:SC=21:POKE &H30F,235:POKE &H1D8,211:POKE &H1D9,0:POKE &H3A5,18:POKE &H3F8,0:POKE &H529,63:GOTO 2180
  401. 2150  IF I=22 THEN LL=614:LT=LT2:L=282:LD=589:EA=8:SC=23:POKE &H1D8,240:POKE &H1D9,0:POKE &H3A5,48:GOTO 2200
  402. 2160  IF I=11 THEN LL=306:LT=LT1:LD=282:EA=6:SC=24:POKE &H1D8,240:POKE &H1D9,0:POKE &H3A5,17:GOTO 2200
  403. 2170  IF I=9 THEN LL=546:LT=LT9:LD=536:L=178:EA=10:SC=9:POKE &H1D8,224:POKE &H1D9,1:POKE &H3A5,170:GOTO 2200
  404. 2175  IF I=95 THEN LL=546:LT=LT9:LD=536:L=178:EA=10:SC=9:POKE &H1D8,224:POKE &H1D9,1:POKE &H172,232:GOTO 2200
  405. 2177  IF I=96 THEN LL=546:LT=LT9:GT=GT96:LD=536:L=178:EA=10:SC=9:POKE &H1D8,160:POKE &H1D9,5:POKE &H315,235:POKE &H316,15:GOTO 2178
  406. 2178  IF I=96 THEN POKE &H30C,233:POKE &H30D,253:POKE &H30E,0:POKE &H44A,82:POKE &H44B,253:POKE &H3A5,106:POKE &H3F8,47:GOTO 2200
  407. 2180  LB=INT(LL/256):LA=LL-256*LB:LD=INT((LL-5)/256):LC=LL-5-256*LD
  408. 2181  POKE &H233,216:POKE &H234,2:POKE &H375,148:POKE &H376,1
  409. 2182  IF I=6 THEN BLOAD "avt94.asm",&H660
  410. 2183  IF I=5 THEN BLOAD "avt90.asm",&H660
  411. 2190  POKE &H1E8,LA:POKE &H1E9,LB:GOTO 2270
  412. 2200  LB=INT(LD/256):LA=LD-256*LB:GOTO 2220
  413. 2210  LB=INT(3*L/256):LA=3*L-256*LB:RB=INT((LL+8)/256):RA=LL+8-256*RB:POKE &H233,RA:POKE &H234,RB
  414. 2220  POKE &H1E8,LA:POKE &H1E9,LB
  415. 2230  L3B=INT((L-3)/256):L3A=L-3-256*L3B:POKE &H4C1,L3A:POKE &H4C2,L3B
  416. 2240  LLB=INT(LL/256):LLA=LL-256*LLB:POKE &H4CF,LLA:POKE &H4D0,LLB
  417. 2245  LO=5*LL+L+6
  418. 2246  IF I=7 OR I=77 THEN LO=5*LL+2*L+6
  419. 2250  LO2=INT(LO/256):LO1=LO-256*LO2:POKE &H4E1,LO1:POKE &H4E2,LO2
  420. 2255  LL8=INT((8*LL-8)/256):LL7=8*LL-8-256*LL8:POKE &H584,LL7:POKE &H585,LL8
  421. 2260  LRB=INT((LL-8)/256):LRA=LL-8-256*LRB:POKE &H57D,LRA:POKE &H57E,LRB
  422. 2265  Y=LEN(CS$)
  423. 2266  FOR Z=1 TO Y
  424. 2267  POKE &H5F9+Z,ASC(MID$(CS$,Z,1))
  425. 2268  NEXT Z
  426. 2270  LTB=INT(LT/256):LTA=LT-256*LTB
  427. 2280  POKE &H32A,LTA:POKE &H32B,LTB
  428. 2290  IF I=95 THEN POKE &H454,LTA:POKE &H455,LTB:POKE &H480,112:POKE &H47A,17
  429. 2300  IF CO=2 THEN POKE &H155,2:POKE &H176,2
  430. 2310  POKE &H29D,SW
  431. 2315  IF I=7 OR I=77 OR I=8 THEN POKE &H564,10
  432. 2320  POKE &H317,EA:POKE &H31A,EA:POKE &H310,SC 'EA=discarded bytes-SC=synch cycles
  433. 2330  POKE &H211,GT:POKE &H1A4,GT:POKE &H22B,GT
  434. 2340  S2=INT(S%/256):S1=S%-256*S2:POKE &H443,S1:POKE &H444,S2
  435. 2345  IF OU=1 THEN POKE &H312,235:POKE &H313,240:POKE &H152,195
  436. 2350  PRINT:PRINT:PRINT:PRINT"     Hit key G to start Transmit"
  437. 2360  K=&H100:CALL K(A$)
  438. 2370  PRINT:PRINT:PRINT:PRINT:PRINT"           PICTURE TRANSMITTED!"
  439. 2380  GOTO 1290
  440. 2500  IF DE>0 THEN POKE &H1C6,209:POKE &H1C7,4:POKE &H66A,0:POKE &H669,DE
  441. 2510  GOTO 775
  442. 2520  PRINT:PRINT:PRINT"   SAVE as a (1)WX file or (2)FAX480 file---FAX480 file only includes 536x480"
  443. 2525  INPUT"pixels in upper left corner of PIX as scrolled now (Default=1)";FI
  444. 2530  IF FI=0 THEN FI=1
  445. 2535  IF FI=1 THEN GOTO 2550
  446. 2540  IF FI=2 THEN I=9:POKE &H1B9,34:POKE &H1BA,2:GOTO 1490
  447. 2545  GOTO 2520
  448. 2550  PRINT:PRINT:INPUT"   How many lines do you want to SAVE (Default=1536)";LE%
  449. 2555  IF LE%=0 THEN LE%=1536
  450. 2560  GOTO 1490
  451. 2600  DEF SEG=&H5F00:AU=1:I%=0
  452. 2601  BLOAD "viscodee.asm",&H100:POKE &H35B,106:POKE &H35C,116:POKE &H35D,50:POKE &H391,96:POKE &H35F,170:POKE &H360,116:POKE &H361,50:POKE &H395,9:POKE &H16F,PN
  453. 2602  IF VW=2 THEN POKE &H19C,232:POKE &H19D,6:POKE &H234,232:POKE &H235,6:POKE &H1A1,225:POKE &H1A2,8:POKE &H3DE,225:POKE &H3DF,8
  454. 2603  IF VW=3 THEN POKE &H19C,199:POKE &H19D,6:POKE &H234,199:POKE &H235,6:POKE &H1A1,24:POKE &H1A2,9:POKE &H3DE,24:POKE &H3DF,9
  455. 2605  POKE &H3CB,IO:POKE &H1CC,2       ' 2 is no. of 1/18 sec periods allowed for VIS rec per bit
  456. 2606  POKE &H2E5,42:POKE &H2F5,42   'samples required to trigger
  457. 2607  POKE &H332,235:POKE &H333,6  'bypasses Vis on Robot 36/72-noise prone modes
  458. 2609  IF CO=2 THEN POKE &H465,11:POKE &H478,11:POKE &H47F,2:POKE &H489,2:POKE &H493,2:POKE &H49A,2:POKE &H1F7,2:POKE &H1FD,11:POKE &H425,2
  459. 2610  K=&H100:CALL K(F%,G%,H%,I%)
  460. 2615  KEY 10,"666"+CHR$(13)
  461. 2620  I=I%
  462. 2622  IF I=96 THEN GOTO 2643
  463. 2628  IF I=9 THEN GOTO 2644
  464. 2630  IF I=11 THEN GOTO 2644
  465. 2631  IF I=22 THEN GOTO 2644
  466. 2632  IF I=7 THEN GOTO 2644
  467. 2633  IF I=77 THEN GOTO 2644
  468. 2634  IF I=3 THEN GOTO 2644
  469. 2635  IF I=4 THEN GOTO 2644
  470. 2636  IF I=5 THEN GOTO 2644
  471. 2637  IF I=6 THEN GOTO 2644
  472. 2638  IF I=66 THEN GOTO 2644
  473. 2639  IF I=8 THEN GOTO 2644
  474. 2640  DEF SEG=&H4E00:POKE &H101,235:POKE &H102,14
  475. 2641  K=&H100:CALL K
  476. 2642  DEF SEG=&H4F00:GOTO 550
  477. 2643  IF RE=0 THEN DEF SEG=&H6F00:GOTO 2646
  478. 2644  DEF SEG=&H4F00
  479. 2646  POKE &H192,235:POKE &H193,23   'jumps over 1200 cps in STOTVGB barriers
  480. 2647  IF RE=0 THEN POKE &H15B,144:POKE &H15C,144  'leaves text screen on while copying
  481. 2648  POKE &H1AC,20:POKE &H1C2,17 'trial for pix bytes before frame sync
  482. 2650  GOTO 570
  483. 2670  PRINT:PRINT:PRINT:INPUT"   What Drive\Path to store pictures (Default=RAMDISK)";SP$
  484. 2675  IF SP$="" THEN SP$=DR$+":"
  485. 2676  PRINT:PRINT:INPUT"   Disable Frame SYNC on AVT Modes-yes or no (Default=y)";SY$
  486. 2677  IF SY$="" THEN SY$="y"
  487. 2680  PRINT:PRINT:PRINT"   VIS Enabled--Pix will be saved in  ";:PRINT SP$:GOTO 2600
  488. 2700  BLOAD "trusho.asm",&H100
  489. 2705  P2=INT(P/256):P1=P-256*P2:POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2
  490. 2710  OF=3*(640-P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2
  491. 2715  Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB
  492. 2720  W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB
  493. 2725  LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB
  494. 2726  IF I=96 THEN POKE &H2F6,LA:POKE &H2F7,LB:POKE &H303,LA:POKE &H304,LB
  495. 2730  U=3*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB
  496. 2735  POKE &H427,10:POKE &H226,2  'poke to &h226 is pixels per left arrow depress
  497. 2740  LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2:POKE &H15D,LL1:POKE &H15E,LL2
  498. 2745  Q=BL-3*P:QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB
  499. 2750  POKE &H39A,233:POKE &H39B,107:POKE &H39C,253:POKE &H11A,0:POKE &H11B,0:POKE &H2B8,235:POKE &H2B9,6:POKE &H3AC,1:POKE &H3B4,1
  500. 2755  POKE &H3A2,224:POKE &H3A3,1
  501. 2760  GOTO 2010
  502. 2800  BLOAD "tune.asm",&H100
  503. 2801  POKE &H3AF,180:POKE &H3B0,1:POKE &H15D,LL1:POKE &H15E,LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2
  504. 2805  POKE &H3BD,0    'Freq. calibration for tune display
  505. 2810  K=&H100:CALL K(Z%,A$)
  506. 2811  GOTO 1290
  507. 2820  POKE &H6DC,235:POKE &H6DD,2:POKE &H6FC,195:POKE &H6E9,64:POKE &H246,200:POKE &H247,7:POKE &H519,222:POKE &H51A,4:POKE &H6F0,2:POKE &H6F3,2
  508. 2822  POKE &H71E,235:POKE &H71F,11:POKE &H449,1:POKE &H1E1,99
  509. 2824  IF I=7 OR I=77 THEN POKE &H6E9,128:POKE &HA21,192:POKE &HA37,64:POKE &HA4D,128
  510. 2826  IF I=9 THEN POKE &H246,19:POKE &H247,8:POKE &H6E9,0:POKE &H6F0,1:POKE &H6F3,1:POKE &H26B,52:POKE &H26C,0:GOTO 2840
  511. 2827  LS2=INT((2*L-1)/256):LS1=2*L-1-256*LS2:POKE &HA15,LS1:POKE &HA16,LS2:POKE &HA1E,LS1:POKE &HA1F,LS2
  512. 2828  LQ2=INT((640-2*L)/256):LQ1=640-2*L-256*LQ2:POKE &H720,LQ1:POKE &H721,LQ2:POKE &H724,LQ1:POKE &H725,LQ2:POKE &HA2B,LQ1:POKE &HA2C,LQ2
  513. 2829  POKE &HA2F,LQ1:POKE &HA30,LQ2
  514. 2830  IF I=6 OR I=66 THEN POKE &HA41,255:POKE &HA42,255:POKE &HA45,255:POKE &HA46,255:POKE &HA47,114:POKE &HA4A,84:POKE &HA4B,252:GOTO 2832
  515. 2831  LY2=INT ((639-2*L)/256):LY1=639-2*L-256*LY2:POKE &HA41,LY1:POKE &HA42,LY2:POKE &HA45,LY1:POKE &HA46,LY2
  516. 2832  OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H26B,OF1:POKE &H26C,OF2
  517. 2833  GOTO 2840
  518. 2840  IF VC=7 THEN POKE &H430,BS:GOTO 879                            'VESA 101
  519. 2842  IF VC=2 THEN POKE &H15A,46:POKE 1071,186:POKE 1072,205:POKE 1073,3:POKE 1074,136:POKE 1075,216:POKE 1076,238:POKE 1077,195:GOTO 880            'TSENG 2E
  520. 2844  IF VC=3 THEN POKE &H15A,&H62:POKE 1071,235:POKE 1072,94:GOTO 880  'ATI 62
  521. 2846  IF VC=1 THEN GOTO 2850
  522. 2847  IF VC=4 THEN GOTO 2855
  523. 2848  IF VC=5 THEN GOTO 2860
  524. 2849  IF VC=6 THEN GOTO 2865
  525. 2850  POKE 1071,186:POKE 1072,196:POKE 1073,3:POKE 1074,184:POKE 1075,11:POKE 1076,0:POKE 1077,239:POKE 1078,237:POKE 1079,176:POKE 1080,14:POKE 1081,128
  526. 2851  POKE 1082,243:POKE 1083,2:POKE 1084,136:POKE 1085,220:POKE 1086,239:POKE 1087,195:GOTO 880                                                     'TRIDENT 5D
  527. 2855  POKE &H15A,&H5F:POKE 1071,186:POKE 1072,206:POKE 1073,3:POKE 1074,176:POKE 1075,9:POKE 1076,136:POKE 1077,220:POKE 1078,208:POKE 1079,228
  528. 2856  POKE 1080,208:POKE 1081,228:POKE 1082,208:POKE 1083,228:POKE 1084,208:POKE 1085,228:POKE 1086,239:POKE 1087,195:GOTO 880                      'PARADISE 5F
  529. 2860  POKE &H15A,&H79:POKE 1071,186:POKE 1072,214:POKE 1073,3:POKE 1074,176:POKE 1075,16:POKE 1076,136:POKE 1077,220:POKE 1078,208:POKE 1079,228
  530. 2861  POKE 1080,208:POKE 1081,228:POKE 1082,239:POKE 1083,195:GOTO 880  'CHIPS & TECH 79
  531. 2865  POKE &H15A,&H5C:POKE 1071,186:POKE 1072,196:POKE 1073,3:POKE 1074,176:POKE   1075,6:POKE 1076,238:POKE 1077,66:POKE 1078,236:POKE 1079,36
  532. 2866  POKE 1080,199:POKE 1081,128:POKE 1082,227:POKE 1083,7:POKE 1084,208:POKE 1085,227:POKE 1086,208:POKE 1087,227:POKE 1088,208:POKE 1089,227
  533. 2867  POKE 1090,8:POKE 1091,216:POKE 1092,238:POKE 1093,195:GOTO 880   'GENOA 5C
  534. 3000   '                       SYSTEM CONFIGURATION
  535. 3010   '  33mhz 386          xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  536. 3020  TI=1:PT=6 'Sound tick  ON=1  OFF=0-----PT=Pixels Trimmed in viewing pix
  537. 3030  VC=7      'VideoCard 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa
  538. 3040            '7=VESA (VESA card or VESA driver).Pick BS below to get full pix
  539. 3045  BS=0:BP=3 'BS=Bank Shift, from 0 to 6:BP=Bytes/Pixel, either 3 or 4
  540. 3046  BL=1920   'Bytes/Line in TRUCOLOR modes--ATI=1920 and Diamond PRO=2048
  541. 3050  DR$="c":TX$="tvt"  'DR$=RAMDISK:TX$=preferred Txmit prog(VT,TVT or LVT)
  542. 3060  GT=136    'Gross timer (LSB). Move down 1 or 2 for slow computers
  543. 3070  GT99=135:GT96=135     'Gross Timer for wx mode:Gross Timer for Mode 96.
  544. 3100  LT3=38735 'Line Timing for Scottie 1
  545. 3170  CO=1:IO=8 'COM2 is CO=2 : IO is the delay to accommodate slow I/O boards
  546. 3180  SW=50:RC=2'SYNC Win(micrsec):RC=1 best resolution-RC=2 best color fidelity
  547. 3195  PN=1      'PN=1 DTR +12v---PN=2 RTS is +12v---PN=3 Both DTR and RTS are +12
  548. 3200  DE=10     'pixel delay to start pix on non-AVT modes(FS=1).Must be <255
  549. 3210  OU=1      'OU=1 is Speaker out ONLY--OU=2 is Pin 7(RTS) and spkr out
  550. 3220  SI=1      'wefax size for VESA card--(1)=1024x768---(2)=640x480
  551. 3230  MP=1      'MP=0 Help scrn--MP=1 Mode PIX (MP$) ON--MP=3 Mode List only-fast
  552. 3240  MP$="MODES.M1":I=7      'Mode select screen file and Mode number (I).
  553. 3250  TC=1      'TC=0=256 color--TC=1=TRUCOLOR--TC=2=TRUCLR but 256 mode screen
  554. 3260  FR=2      'FR=1 Full screen Trucolor--FR=2 small Trucolor (full resolution)
  555. 3270  EX=2      'S2 and M2 aspect-EX=0 2xHoriz/2xVert--EX=1 4xH/2xV--EX=2 2xH/1xV
  556. 3280  RE=1:TM$="c:\tmp\" 'RE=1 Realtime-RE=0 NOT real:TM$=path for Quick Save
  557. 3290  CS$="REPLAY-K3BC             " 'default Label on retransmit-36 spaces max.
  558. 3310  VW=1      'VW=VIS Acq B/W;1=low,2=mid,3=wide
  559. 3320  BR=2      'BR is Robot color brightness--0, 1, or 2
  560. 3330  RLT2=INT(LT3/256):RLT1=LT3-256*RLT2:DEF SEG=&H40:POKE &HF8,RLT1:POKE &HF9,RLT2
  561. 3370  PN=PN+8
  562. 3375  IF IO=0 THEN IO=1
  563. 3380  GOTO 3900
  564. 3500  IF ZK=255 THEN GOTO 1355
  565. 3510  F$="n":V=TIMER:X=INT(V):PIX$=TM$+"Q"+STR$(-X):GOTO 1450
  566. 3520  BLOAD "selectmo.asm",&H100:POKE &H11E,16:POKE &H114,64:POKE &H1CB,144:POKE &H1CC,144
  567. 3522  K=&H100:CALL K(H%)
  568. 3523  IF H%=97 OR H%=222 OR H%=111 THEN BLOAD"pixoff.asm",&H100:POKE &H101,235:POKE &H102,14:K=&H100:CALL K:GOTO 3530
  569. 3524  GOTO 3520
  570. 3530  IF H%=97 THEN GOTO 1290
  571. 3534  IF H%=222 THEN POKE &H6DD,255:GOTO 1355
  572. 3535  IF H%=111 THEN LOAD "rt.bas",R
  573. 3900  A3=38825-LT3
  574. 3910  LT1=30270-A3*(307/878):LT2=60540-A3*(614/878):LT4=7294-A3*(568/878):LT5=42890-A3*(768/878):LT6=4487-A3*(960/878)
  575. 3920  LT7=16795-A3*(915/878):LT8=15860-A3*(745/878):LT77=16930-A3*(464/878):LT9=47959-A3*(546/878):LT99=13500-A3*(1024/878)
  576. 3998  L99B=INT(LT99/256):L99A=LT99-256*L99B
  577. 3999  GOTO 40
  578. 4000  BLOAD "trushof.asm",&H100:POKE &H1AE,2
  579. 4001  POKE &H1E1,45           'switches on the F4 quick save
  580. 4005  IF I=3 THEN L=287
  581. 4010  IF I=4 THEN FR=1:L=184
  582. 4020  IF I=5 THEN L=256
  583. 4030  IF I=6 THEN L=320
  584. 4040  IF I=7 THEN GOTO 4560
  585. 4050  IF I=77 THEN FR=1:GOTO 4560
  586. 4060  IF I=8 THEN L=248
  587. 4070  IF I=96 THEN L=546:LL=1638:PT=16:POKE &H3AC,1:POKE &H3B4,1:POKE &H3A2,224:POKE &H3A3,1:FR=0
  588. 4080  U=BP*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB
  589. 4090  POKE &H226,2  'No. poked here=pixels scrolled per left arrow depression
  590. 4100  POKE &H427,PT
  591. 4105  IF BP=4 THEN POKE &H3CC,235:POKE &H3CD,32:POKE &H5CB,235:POKE &H5CC,187
  592. 4107  IF BP=2 THEN POKE &H17A,233:POKE &H17B,67:POKE &H17C,5:POKE &H18D,17:POKE &H398,17
  593. 4110  FOR C=&HD00 TO &HD50
  594. 4120  POKE C,0:NEXT C
  595. 4130  P=L-PT:P2=INT(P/256):P1=P-P2*256
  596. 4140  POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2:POKE &H5CF,P1:POKE &H5D0,P2:POKE &H601,P1:POKE &H602,P2
  597. 4150  LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB:POKE &H5BB,LA:POKE &H5BC,LB:POKE &H5C2,LA:POKE &H5C3,LB
  598. 4160  IF I=96 THEN POKE &H2F6,LA:POKE &H2F7,LB:POKE &H303,LA:POKE &H304,LB
  599. 4170  IF I=96 THEN Q=BL-BP*P:GOTO 4190
  600. 4180  Q=BL-2*BP*P
  601. 4190  Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB:POKE &H5C9,ZA:POKE &H5CA,ZB
  602. 4200  W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB:POKE &H5FE,WA:POKE &H5FF,WB:POKE &H6B2,WA:POKE &H6B3,WB
  603. 4210  IF I=7 THEN GOTO 4240
  604. 4220  IF I=77 THEN GOTO 4240
  605. 4230  GOTO 4270
  606. 4240  WM=L+32:WMB=INT(WM/256):WMA=WM-256*WMB:POKE &H3A9,WMA:POKE &H3AA,WMB:POKE &H3E5,WMA:POKE &H3E6,WMB:POKE &H5FE,WMA:POKE &H5FF,WMB:POKE &H6B2,WMA:POKE &H6B3,WMB
  607. 4250  X=2*L:XB=INT(X/256):XA=X-256*XB:POKE &H3C3,XA:POKE &H3C4,XB:POKE &H3C2,199:POKE &H5C2,XA:POKE &H5C3,XB:POKE &H5C1,199
  608. 4260  POKE &H3CA,LA:POKE &H3CB,LB:POKE &H3C9,239:POKE &H5C9,LA:POKE &H5CA,LB:POKE &H5C8,239
  609. 4270  IF I=4 THEN LL=568
  610. 4280  IF I=5 THEN LL=768
  611. 4290  IF I=7 THEN LL=915
  612. 4300  IF I=77 THEN LL=464
  613. 4310  IF I=8 THEN LL=745
  614. 4320  IF I=6 THEN LL=960
  615. 4330  IF I=3 THEN LL=878
  616. 4340  IF I=96 THEN OF=BP*(640-P)/2:POKE &H1AE,36:POKE &H1AF,2:GOTO 4360
  617. 4350  OF=BP*(640-2*P)/2
  618. 4355  IF FR=2 THEN OF=20*BL+BP*INT((640-P)/2)
  619. 4360  OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2
  620. 4365  LY=LL+1:LYB=INT(LY/256):LYA=LY-256*LYB:POKE &H697,LYA:POKE &H698,LYB
  621. 4366  LZ=2*LL:LZB=INT(LZ/256):LZA=LZ-256*LZB
  622. 4370  LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2:POKE &H15D,LL1:POKE &H15E,LL2
  623. 4371  POKE &H638,LL1:POKE &H639,LL2:POKE &H5AC,LL1:POKE &H5AD,LL2
  624. 4372  SH=15*LL:SHB=INT(SH/256):SHA=SH-256*SHB
  625. 4373  POKE &H509,144:POKE &H50A,184:POKE &H50B,SHA:POKE &H50C,SHB
  626. 4380  IF I=96 THEN GOTO 4430
  627. 4410  IF FR=1 THEN POKE &H3AB,233:POKE &H3AC,32:POKE &H3AD,2:POKE &H15D,LZA:POKE &H15E,LZB:GOTO 4425
  628. 4420  POKE &H2F1,33:POKE &H2F2,2:POKE &H3AC,1:POKE &H3B4,1:Q=BL-BP*P
  629. 4425  IF I=3 OR I=4 THEN POKE &H1AE,LA:POKE &H1AF,LB:POKE &H3C2,199:POKE &H3C9,239:POKE &H5C1,199:POKE &H5C8,239
  630. 4426  IF I=3 THEN POKE &H3C3,79:POKE &H3C4,2:POKE &H3CA,48:POKE &H3CB,1:POKE &H5C2,79:POKE &H5C3,2:POKE &H5C9,48:POKE &H5CA,1:POKE &H2B7,0:POKE &H2B3,0
  631. 4427  IF I=3 THEN POKE &H3A9,63:POKE &H3AA,1:POKE &H5FE,63:POKE &H5FF,1
  632. 4428  IF I=4 THEN POKE &H3C3,128:POKE &H3C4,1:POKE &H5C2,128:POKE &H5C3,1:POKE &H3CA,200:POKE &H3CB,0:POKE &H5C9,200:POKE &H5CA,0:POKE &H2B7,0:POKE &H2B3,0
  633. 4429  IF I=4 THEN POKE &H3A9,216:POKE &H3AA,0:POKE &H5FE,216:POKE &H5FF,0
  634. 4430  IF EX=0 OR EX=2 THEN GOTO 4480
  635. 4440  IF FR>1 THEN GOTO 4480
  636. 4450    'next two lines expand S2 and M2 modes by 4 horizontally
  637. 4460  IF I=4 THEN P=160:Q=BL-4*BP*P:POKE &H5CF,P:POKE &H5D0,0:POKE &H601,P:POKE &H602,0:POKE &H13C,0:POKE &H13D,0:POKE &H5D3,2:POKE &H605,2
  638. 4470  IF I=77 THEN Q=BL-4*BP*P:BPO=34*BP:POKE &H3B4,4:POKE &H13C,BPO:POKE &H13D,0:POKE &H512,BPO:POKE &H513,0:POKE &H5D3,2:POKE &H605,2
  639. 4480  QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB:POKE &H5F1,QA:POKE &H5F2,QB:POKE &H6A5,QA:POKE &H6A6,QB
  640. 4481  POKE &H39A,233:POKE &H39B,107:POKE &H39C,253:POKE &H11A,0:POKE &H11B,0:POKE &H2B8,235:POKE &H2B9,6
  641. 4482  POKE &H3A2,224:POKE &H3A3,1
  642. 4483  IF EX=2 AND I=4 THEN POKE &H600,235:POKE &H601,35
  643. 4484  IF EX=2 AND I=77 THEN POKE &H600,235:POKE &H601,35
  644. 4490  IF VC=1 THEN GOTO 1765
  645. 4500  IF VC=2 THEN GOTO 1260
  646. 4510  IF VC=3 THEN GOTO 1770
  647. 4520  IF VC=4 THEN GOTO 4585
  648. 4530  IF VC=5 THEN GOTO 1890
  649. 4540  IF VC=7 THEN GOTO 2010
  650. 4550  IF VC=6 THEN GOTO 1940
  651. 4560  POKE &H2D7,1:POKE &H341,2:POKE &H66C,1:POKE &H4D7,1:POKE &H4F3,2:POKE &H65D,1
  652. 4570  IF I=77 THEN L=152:GOTO 4080
  653. 4580  L=302:GOTO 4080
  654. 4585  IF BP=2 THEN POKE &H113,&H72:POKE 321,186:POKE 322,206:GOTO 1840 'Paradise video mode 72 for 64k. colors
  655. 4586  GOTO 1830
  656. 4600  DEF SEG=&H4F00
  657. 4610  BLOAD "tv2tfr.asm",&H100
  658. 4620  POKE &H1A8,3:POKE &H1A9,1:POKE &H187,142:POKE &H188,192:POKE &H189,144
  659. 4630  IF I=98 THEN POKE &H24D,232
  660. 4640  FOR Y=&HB00 TO &HF00
  661. 4650  POKE Y,208:NEXT Y
  662. 4660  LB=INT(L/256):LA=L-256*LB:POKE &H2B5,LA:POKE &H2B6,LB
  663. 4670  LLB=INT(LL/256):LLA=LL-256*LLB:POKE &H192,LLA:POKE &H193,LLB
  664. 4680  LIB=INT(LI/256):LIA=LI-256*LIB:POKE &H18B,LIA:POKE &H18C,LIB
  665. 4690  POKE &H1B9,0:POKE &H1BA,15    'fix this to fit output file mode
  666. 4700  S2=INT(S%/256):S1=S%-256*S2:POKE &H163,S1:POKE &H164,S2
  667. 4710  PRINT:PRINT:PRINT:PRINT"         ----F5 to SYS CONFIG----F10 to DOS--- "
  668. 4720  PRINT"  Output file Mode  (3)Scot 1 (4)Scot 2 (5)AVT-90 (6)AVT-94 (7)Martin 1"
  669. 4730  INPUT"  (77) Martin 2  (9) FAX480 ";J
  670. 4740  IF J=888 THEN KEY 5,"LIST 1000-"+CHR$(13):KEY 10,"system"+CHR$(13):CLS:GOTO 5170
  671. 4750  IF J=666 THEN CLS:SYSTEM
  672. 4760  KEY 10,"system"+CHR$(13)
  673. 4770  IF J=3 THEN NO$=".s1":LO=288:LLO=878:GOTO 4850
  674. 4780  IF J=4 THEN NO$=".s2":LO=184:LLO=568:GOTO 4850
  675. 4790  IF J=5 THEN NO$=".90":LO=256:LLO=768:GOTO 4850
  676. 4800  IF J=6 THEN NO$=".94":LO=320:LLO=960:GOTO 4850
  677. 4810  IF J=7 THEN NO$=".m1":LO=302:LLO=915:GOTO 4850
  678. 4820  IF J=77 THEN NO$=".m2":LO=152:LLO=464:GOTO 4850
  679. 4830  IF J=9 THEN NO$=".fax":LO=536:LLO=546:GOTO 4850
  680. 4840  GOTO 4710
  681. 4850  IF I=J THEN GOTO 2060
  682. 4860  LLO2=INT (LLO/256):LLO1=LLO-256*LLO2:POKE &H1B9,LLO1:POKE &H1BA,LLO2
  683. 4862  IF I=3 THEN POKE &H163,31:POKE &H164,1
  684. 4863  IF J=3 THEN POKE &H187,233:POKE &H188,131:POKE &H189,0:POKE &H214,0:POKE &H215,8:POKE &H217,31:POKE &H218,1
  685. 4864  IF J=4 THEN POKE &H187,233:POKE &H188,131:POKE &H189,0:POKE &H214,0:POKE &H215,8:POKE &H217,184:POKE &H218,0
  686. 4870  IF I=3 AND J=7 THEN POKE &H2BB,224:POKE &H2AE,7:POKE &H2D2,15:POKE &H2DD,15:POKE &H2E1,17:POKE &H2B5,31:POKE &H2B6,1:GOTO 5130
  687. 4880  IF I=3 AND J=77 THEN POKE &H2C0,70:POKE &H2AE,4:POKE &H2D2,8:POKE &H2DD,8:POKE &H2B5,144:POKE &H2B6,0:POKE &H2AE,4:POKE &H2E1,16:GOTO 5130
  688. 4890  IF I=3 AND J=5 THEN POKE &H2BB,224:POKE &H18F,94:POKE &H2D6,79:POKE &H2E1,31:POKE &H2B5,0:POKE &H2B6,1:POKE &H190,3:POKE &H2D5,238:POKE &H2D7,3:GOTO 5130
  689. 4900  IF I=3 AND J=6 THEN POKE &H2BB,224:POKE &H2AE,16:POKE &H2D2,33:POKE &H2DD,33:POKE &H18F,79:POKE &H190,3:POKE &H2D5,238:POKE &H2D6,110:POKE &H2D7,3:POKE &H2B5,31:POKE &H2B6,1:GOTO 5130
  690. 4910  IF I=3 AND J=4 THEN POKE &H2C0,70:POKE &H2AE,20:POKE &H2D2,41:POKE &H2DD,57:POKE &H2B5,143:POKE &H2B6,0:POKE &H2E1,17:POKE &H2D6,1:GOTO 5130
  691. 4920  IF I=7 AND J=3 THEN POKE &H2BB,224:POKE &H18F,7:POKE &H2D6,15:POKE &H2E1,15:POKE &H2AE,0:POKE &H2AF,8:POKE &H2DD,17:POKE &H2B5,31:POKE &H2B6,1:GOTO 5130
  692. 4940  IF I=7 AND J=77 THEN POKE &H2C0,70:POKE &H2B5,151:POKE &H2B6,0:POKE &H2D2,1:POKE &H2DD,1:GOTO 5130
  693. 4950  IF I=7 AND J=4 THEN POKE &H2C0,70:POKE &H2B5,151:POKE &H2B6,0:POKE &H2AE,16:POKE &H2DD,49:POKE &H2DE,0:POKE &H2D2,33:GOTO 5130
  694. 4960  IF I=7 AND J=5 THEN POKE &H2BB,224:POKE &H18F,23:POKE &H2D6,46:POKE &H2E1,46:POKE &H2B5,0:POKE &H2B6,1:POKE &H2AE,0:POKE &H2AF,9:POKE &H2DC,239:POKE &H2DE,3:GOTO 5130
  695. 4970  IF I=7 AND J=6 THEN POKE &H2BB,224:POKE &H2AE,73:POKE &H2AF,9:POKE &H2DC,239:POKE &H2DD,174:POKE &H2DE,3:POKE &H2D2,18:GOTO 5130
  696. 4980  IF I=5 AND J=3 THEN POKE &H2BB,224:POKE &H2AE,16:POKE &H2D2,31:POKE &H2DD,48:POKE &H190,2:POKE &H2E0,238:POKE &H2E1,0:POKE &H2E2,3:GOTO 5130
  697. 4990  IF I=5 AND J=4 THEN POKE &H2C0,70:POKE &H2AE,28:POKE &H2B5,128:POKE &H2B6,0:POKE &H2D2,56:POKE &H2DD,72:POKE &H190,2:POKE &H2E0,238:POKE &H2E1,0:POKE &H2E2,3:GOTO 5130
  698. 5000  IF I=5 AND J=6 THEN POKE &H2BB,224:POKE &H2AE,32:POKE &H2D2,64:POKE &H2DD,64:GOTO 5130
  699. 5010  IF I=5 AND J=77 THEN POKE &H2C0,70:POKE &H2B5,128:POKE &H2B6,0:POKE &H2DD,24:POKE &H2AE,60:POKE &H2AF,9:POKE &H2D1,239:POKE &H2D2,176:POKE &H2D3,1:GOTO 5130
  700. 5020  IF I=96 AND J=9 THEN POKE &H2BB,225:POKE &H2B5,24:POKE &H2B6,2:POKE &H2D0,235:POKE &H2D1,20:GOTO 5130
  701. 5025  IF I=96 THEN POKE &H1D2,102:POKE &H1D3,6
  702. 5030  IF I=96 AND J=3 THEN POKE &H2C0,70:POKE &H2AE,10:POKE &H2D2,19:POKE &H2DD,36:POKE &H2B5,12:POKE &H2B6,1:POKE &H2D6,10:POKE &H2E1,10
  703. 5035  IF I=96 AND J=3 THEN POKE &H18F,34:POKE &H190,3:POKE &H2E0,238:POKE &H2E1,92:POKE &H2E2,6:GOTO 5130
  704. 5040  IF I=96 AND J=7 THEN POKE &H2C0,70:POKE &H2AE,109:POKE &H2AF,10:POKE &H2DD,34:POKE &H2D1,239:POKE &H2D2,104:POKE &H2D3,3:POKE &H2B5,12:POKE &H2B6,1:POKE &H2D6,10:POKE &H2E1,10:GOTO 5130
  705. 5050  IF I=96 AND J=5 THEN POKE &H2C0,70:POKE &H18F,12:POKE &H2B5,0:POKE &H2B6,1:POKE &H2D6,34:POKE &H2E1,34:GOTO 5130
  706. 5060  IF I=96 AND J=6 THEN POKE &H2C0,70:POKE &H2AE,26:POKE &H2D2,52:POKE &H2DD,52:POKE &H2B5,12:POKE &H2B6,1:POKE &H2D6,10:POKE &H2E1,10:GOTO 5130
  707. 5070  IF I=6 AND J=3 THEN POKE &H2BB,224:POKE &H18F,80:POKE &H2D6,33:POKE &H2E1,159:POKE &H2B5,31:POKE &H2B6,1:POKE &H190,2:POKE &H2E0,238:POKE &H2E2,3:POKE &H2DD,17:GOTO 5130
  708. 5080  IF I=6 AND J=7 THEN POKE &H2BB,224:POKE &H18F,9:POKE &H2D6,18:POKE &H2E1,18:POKE &H2B5,46:POKE &H2B6,1:POKE &H2AE,92:POKE &H2AF,10:POKE &H2D1,239:POKE &H2D2,138:POKE &H2D3,3:GOTO 5130
  709. 5090  IF I=6 AND J=4 THEN POKE &H2C0,70:POKE &H2B5,160:POKE &H2B6,0:POKE &H2AE,12:POKE &H2D2,24:POKE &H2DD,40:POKE &H18F,64:POKE &H190,2:POKE &H2E0,238:POKE &H2E1,192:POKE &H2E2,3:GOTO 5130
  710. 5100  IF I=6 AND J=5 THEN POKE &H2BB,224:POKE &H18F,32:POKE &H2D6,64:POKE &H2E1,64:POKE &H2B5,0:POKE &H2B6,1:GOTO 5130
  711. 5110  IF I=6 AND J=77 THEN POKE &H2C0,70:POKE &H2B5,152:POKE &H2B6,0:POKE &H18F,8:POKE &H2D6,16:POKE &H2E1,16:POKE &H2AE,48:POKE &H2AF,9:POKE &H2D1,239:POKE &H2D2,200:POKE &H2D3,1:GOTO 5130
  712. 5120  GOTO 5170
  713. 5130  NF$=DR$+":b.p"
  714. 5140  TF$=DR$+":a.p"
  715. 5150  K=&H100:CALL K(K%,L%,TF$,NF$)
  716. 5160  S%=0:A$=DR$+":b.p":I=J:GOTO 2060
  717. 5170  CLS:PRINT:PRINT:PRINT"   ONLY CONVERSIONS TO THE SAME OR LOWER RESOLUTIONS ARE ALLOWED.":GOTO 1290
  718.